home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / reftrckr.sit / RT 1.6 / background_11154.txt < prev    next >
Text File  |  1990-04-19  |  4KB  |  149 lines
  1. -- background: 11154 from stack: in.6
  2. -- bmap block id: 11391
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 49 (field)
  9. -- low flags: 81
  10. -- high flags: 0000
  11. -- rect: left=156 top=120 right=137 bottom=352
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Author
  20.  
  21.  
  22. -- part 50 (field)
  23. -- low flags: 81
  24. -- high flags: 0000
  25. -- rect: left=156 top=138 right=155 bottom=352
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Source
  34.  
  35.  
  36. -- part 51 (field)
  37. -- low flags: 81
  38. -- high flags: 0000
  39. -- rect: left=156 top=156 right=173 bottom=352
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Title
  48.  
  49.  
  50. -- part 52 (button)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=102 top=4 right=41 bottom=138
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 16031 / 16031
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: PlayHoot
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   set cursor to Rice
  65.   put msg into temp
  66.   put "                              Go Rice Owls !!  Hoot !!  Hoot !!"
  67.   set icon of me to "Owl2"
  68.   set icon of me to "Owl3"
  69.   set icon of me to "Owl4"
  70.   set icon of me to "Owl5"
  71.   set icon of me to "Owl6"
  72.   wait 10 ticks
  73.   set icon of me to "Owl5"
  74.   set icon of me to "Owl4"
  75.   set icon of me to "Owl3"
  76.   set icon of me to "Owl2"
  77.   set icon of me to "Owl1"
  78.   wait 30 ticks
  79.   set icon of me to "Owl2"
  80.   set icon of me to "Owl3"
  81.   set icon of me to "Owl4"
  82.   set icon of me to "Owl5"
  83.   set icon of me to "Owl6"
  84.   wait 10 ticks
  85.   set icon of me to "Owl5"
  86.   set icon of me to "Owl4"
  87.   set icon of me to "Owl3"
  88.   set icon of me to "Owl2"
  89.   set icon of me to "Owl1"
  90.   put temp
  91.   hide msg
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 53 (field)
  97. -- low flags: 81
  98. -- high flags: 0002
  99. -- rect: left=176 top=23 right=42 bottom=321
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 3
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: DateMade
  108.  
  109.  
  110. -- part 54 (field)
  111. -- low flags: 01
  112. -- high flags: 0002
  113. -- rect: left=304 top=293 right=310 bottom=348
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: Status
  122. ----- HyperTalk script -----
  123. on mouseDown
  124.   if the shiftKey is down then
  125.     helpButton "Indicates the current status of this article","Up"
  126.   else if the commandKey is down then
  127.     global toBeFound,whereToSearch,howToSearch
  128.     put "Status" into whereToSearch
  129.     put bkgnd field id 75 into msg
  130.     set the name of bkgnd button id 79 to "Status"
  131.     hide msg
  132.     put msg into toBeFound
  133.     put empty into howToSearch
  134.     QuickFind
  135.   else
  136.     global m_item
  137.     put the rect of bkgnd field id 75 into it --left,top,right,bottom
  138.     put item 1 of it +1 into left
  139.     put item 2 of it into top                 --actually the right side
  140.     put "0,New;0,Get;0,Read;0, "into mem_def1
  141.     Put HPopUpMenu(mem_def1,top,left,4) into m_item
  142.     if m_item is "none" or m_item is empty or m_item is "error" then
  143.       exit mouseDown
  144.     else
  145.       put m_item into bkgnd field id 75
  146.     end if
  147.   end if
  148. end mouseDown
  149.